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i ZTITLE "MOMDDL = MOM Daté Definition Library’ 
i IDENT = "VO4-b00" . 


MESES E SESS I ITEC TTT TTT TTT rrr rire ric i ici iici tit icici tii titi iit iit iti iitiiiit | 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


t® THIS SOFTWARE IS FURNISHED eee A_ LICENSE AND MAY BE USED AND coPree 
‘* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bce NSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
+ 
*” 
® 
+ 
® 
® 
® 
* 
* 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
® 
* 
® 
® 


ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= 2 oom aRPOhe rie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


@eeeee eee eee eee eee eeene 


RRR O REAR ERRA EEE E AERA AE EEA AEREREAAAEE RETA AEAEEEAA EATER EEK eee 
' 


| ere CT 
Contains structure definitions and global macros used by MOM. 


i ; ENVIRONMENT: VAX/VMS Operating System 
| AUTHOR: Kathy Perko 

CREATION DATE: 9-Jan-1982 

! MODIFIED 


vO3~001 MKP0001 


20-Jan-1984 
Add SERVICE NODE KOERSION bo parameter. 


; Miscellaneous symbols 
LITERAL 
AILU 


‘ee 
FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) 
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i Structure declarations used for system defined structures to 
; save typing. 


STRUCTURE 
BBLOCK CO, P, S, E; NJ = 


(BBLOCK+0)<P,S.E>, 
BBLOCKVECTOR C1, 0, P, S, E; N, BS) = 
((BBLOCKVECTOR+1*BS)+0)<P,S,E>; 


' 
Macro to signal status message 


ACRO 
SSIGNAL_MSG () = 
SIGRAL (MOMSK_SIG_CODE, %REMAINING) 


LA 


SSG ARIE SRR TT a RE RRC ee, 
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i Macro to generate Network ACP Control QI10 (NFB) P1 buffer contents. The NFB 
i ; describes SET, SHOW, CLEAR, and ZERO operations. 


MACRO 
SNFB (FUNC, FLAGS, DATABASE, SRCH_KEY_ONE, OPER_ONE 
SRCH-KEY-TWO, OPER-TWOS = 


BYTE ¢ ey ple (FUNC, 0) !' Q10 function code. 
eFtsé ZNAME ('NFBSC_FC_*, FUNC) 

BYTE ( X%IF XNULL (FLAGS) f Sree uogete and Process 
ZTHEN 0 Multiple Entries flags. 
Bris FLAGS 

BYTE (¢ X1F SIDENTICAL (DATABASE, 0) ! ACP database to update. 
ertse ZNAME ('NFBSC_DB_* DATABASE) 

BYTE (Z1F XNULL (OPER_ONE) ! Oper 
ZTHEN O 
ZELSE OPER_ONE 
oh 

$SRCH H_KEY” (DATABASE, SRCH_KEY_ONE), ! Search key one ID 

$SSRCH_KEY (DATABASE — sKeve TwO), ' Search key two ID 

BYTE thir XNULL (OPER_T i Oper2 
X THEN 
vs 

BYTE (0), re ' Spare 

WORD (0); ' variable cell size 


IF NOT ZNULL (ZREMAINING) 
THEN oe ID LIST (DATABASE ZREMAINING) 
SEL SE ONG (AFBSC -ENDOFLISTS ! End delimiter for field ID List. 


ert LONG (NFBSC_ENDOFLIST) ! End delimiter for field ID List. 

i, 
Generate a Search Key ID for an NFB. If the Search key is null, 
use a wildcard search key ID. 
SSRCH_KEY se rit once vw = 

LONG ( CBIF 


ZNULL_ (SRCA ire, 
THEN NFasC WICDCA 
ort °F SFIELD” ID (DATABASE, SRCH_ID) 


i Generate a List of longwords containing the NETACP field IDs for 


| 
| 
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: the parameters. This iterative macro will generate as many 
field IDs as are supplied. 


SFIELD. 1D bist (DATABASE) CFIELD_ ID) = 
G TSFIELD_ID (DATABASE, FIELD_ID)) 


SFIELD_1D (DATABASE, FIELD_ID) = 
MIF XIDENTICAL (FIELD 10. NFBSC_WIL DCARD) OR 
ZIDENTICAL (FIELD“ID, NFBSC~COLLATE) 
FIELD_ID 
XELSE 
IF XNULL (FIELD_ID) 
TELSE XNAME ('NFBSC_*,DATABASE,'_', FIELD_ID) 
FI 
a 


' 
Macros to generate Network Control 1/0 request descriptors. 
MACRO 


| 
| 
i Declare the NFB buffer (use the number of input parameters to figure 
out how big to make it) and set up a descriptor for it. 
SNFBDSC (NAM) = 
SWITCHES UNAMES; 
OWN 
| 
| 


NFB : VECTOR CSNFB_ALLOCATION (ZREMAINING) J 
BIND “INITIAL (SNFB (ZREMAINING)); 


RNANE (HAR) = UPLIT (ZALLOCATION(_NFB), _NFB); 
UNDE CLARE 
SWITCHES NOUNARES 


SNFB LOCATION {} = 
3¢ (MAX(0, ZLENGTH=6) ) 
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; 1/0 Status Block definition 
FIELD 


sOs8 f fees = 
10S$W_STATUS = = £9. . 16, ' Status field 
10S$W- COUNT - Od. 18 i Byte count field 
{Ossi INFO = (4, ° i Device dependent information 
MACRO 
$10SB = 


BBLOCK (8) FIELD (IOSB_FIELDS) 
' . 


; Macro to create constant string descriptor 
MACRO 
SASCID (] = 


(UPLIT (ZCHARCOUNT (XSTRING(ZREMAINING) ) 
UPLIT BYTE (ZSTRING(ZREMAINING) 5)) 


a 
UPLIT BYTE (ZASCIC ZSTRING (REMAINING) ) 


' 
} Macro to declare frequently used externals in MOM 


MACRO SMOM EXTERNALS = 
MOMSGL -LOGMASK: BITVECTOR (32), 
MOMSGL~SVD_INDEX, 


MOMSAB_ “SERVICE DATA: BBLOCKVECTOR CO,SVDSK_ENTRY_LEN), 
MOMS$GB~ FUNCTION: BYTE, 


MOMSGB~OPTION_BYTE: BYTE. 
MOMSGB-ENTITY~CODE: 
MOMSAB”ENTITY~BUF : BBLOCK 91. 
MOMSGQ"ENTITY-BUF_DSC: VECTOR (9), 
MOMSGL-SERVICE FLAGS: BLOCK (1) 
MOMSAB_NPARSE BLK: SNPA_BLKDEF, 
MOMSAB_NICE_RCV_BUF : BBLOTK ; 
MOMSAB"NICE"XMIT BUF: BBLOCK ° 
ROMSGO-NICETRCV BUF _DSC: VECTOR . 
MOMSGL—NICE-RCV 

MOMSGO"NICEXMIT *BUF. LER: :VECTOR (0), 
MOMSAB~MSGBCOCK : LOCK (0), 
MOMSAB~ACPQ1O_BUFFER BBLOCK . 
MOM$GO~ACPQI0~ ECTOR (0), 
MOMSAB” CIB: Lock (0), 
MOMSAB-LOOP_CIB: Lock (03, 
MOMSAB- TRIGGER CIB: BBLOCK [0). 
MOMSAB-MOP_XMIT BUF: § BBLOCK (0), 


ne — — 
| 


F 
MOMDDL .B32;1 16-SEP-1984 16:59:50.6 Page 6 


MOM$GQ_MOP_XMIT BUF _DSC:VECTOR (0), 
MOMSA3"MOP"RCV_BUF : BBLOCK [0). 
MOM$GQ"MOP"RCV"BUF DSC: VECTOR (0). 
MOMSAB-MOP "MSG? BBLOCK [0]. 
MOM$SGQ"MOP"MSG DSC: VECTOR (0), 
MOMSGU-EVT-CODE : BYTE. 
MOMSGB~EVT~PRSN: BYTE. 
MOMSGB~EVT—PSER: BYTE: 


SVD$GK_PCNO_ ° 
é SVD$GK_PCNO_SLNH, 
“.  SVDSGKIPCNO“LAN, 
~~. SVDSGK_PCNO_ ° 
SVD$GK_PCNO_SLAH, 
D$GK_PCLI_STI, 
SVDSC_ENTRY_ COUNT; 
2; 


1 
: NPARSE argument block structure definitions 


MA 


CRO 
S$NPA_ARGDEF = 


MOMDDL .B832;1 


BUIL 
BIND 


; ° 

NPARSE arg 
aay BLK 
2 6BLO 
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TIN 
NPARSE_BLOCK = AP : REF SNPA_BLKDEF; 


ument block definition macro 


DEF = 
CK CNPASK_LENGTHO) 


023 -BT13A-SE DIGITAL EQUIPMENT CORPORA 
VAX/VMS V4.0 ? CONFIDENTIAL -AND PROPRIET 


TION 
ARY 


